home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler2.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  2.0 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ˜∫÷ÿøKepler2Fraction¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritexyrefcntselStar next xStarDesc¸{self˚{P Draw¸{self˚{R Read¸{self˚{R WriteConstellationc lPlanetDescPlanet¸{self Calc¸{self˚{P Draw¸{self˚{R Read¸{self˚{R Writecntdn |FractionDesc¸{self Calc¸{self˚{R Read¸{self˚{R WriteOffsetdxdy xOffsetDesc¸{self Calc¸{self˚{R Read¸{self˚{R     WriteXY tXYDesc¸{self 
  2. Calc NewFractions NewOffset NewXYܵàflDisplayFramedscnextX
  3. Y WH¸{f x  FrameMsg ˚{msg     !Handler!handle t""FrameDescx0y0scale ext "$|## #PortDesc¸{P˚{x#CX¸{P˚{y#CY¸{P˚{X#Cx¸{P˚{Y#Cy¸{P˚{x˙{y˘{r¯{col˜{mode #DrawCircle¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode #DrawEllipse¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode #DrawLine¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode #DrawRect¸{P˚{x˙{y $˘{sêØâflFonts%Font%˜{fontˆ{colı{mode #    DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode #    
  4. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode #
  5. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode # FillRect#nofpts
  6. &pnext t'''ConsDesc¸{self˚{R 'Read¸{self'State¸{self˚{R '    Write'"
  7.  (Name(name height"minX$maxX&minY(maxY)Font),raster0 4|**FontDesc%* |++Bytes)+